home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / NOISE3.PI < prev    next >
Encoding:
Text File  |  1992-01-27  |  1.7 KB  |  79 lines
  1. # Generic Polyray input File
  2. # Polyray input file: Alexander Enzmann
  3. # Time on 20Mhz 286/ 10Mhz 287: xx setup, xxx tracing
  4.  
  5. # Set up the camera
  6. viewpoint {
  7.    from <0, 0, -8>
  8.    at <0,0,0>
  9.    up <0,1,0>
  10.    angle 45
  11.    resolution 160, 160
  12.    }
  13.  
  14. background <0, 0, 0>
  15. light <-10, 3, -20>
  16.  
  17. define turb_value (fmod(frame, 8) +1) * 0.5
  18. define octv_value (frame / 8) + 1
  19.  
  20. # Definitions of noise texture components
  21. define position_plain 0
  22. define position_objectx 1
  23. define position_worldx 2
  24. define position_cylindrical 3
  25. define position_fmodx 4
  26. define position_fmodxy 5
  27. define position_fmodxyz 6
  28.  
  29. define lookup_plain 0
  30. define lookup_sawtooth 1
  31. define lookup_cos 2
  32. define lookup_sin 3
  33.  
  34.  
  35. # Simple color map texture
  36. define noise_texture0
  37. texture {
  38.    noise surface {
  39.       color white
  40.       position_fn position_plain
  41.       lookup_fn lookup_plain
  42.       octaves 6
  43.       turbulence 1
  44.       ambient 0.2
  45.       diffuse 0.8
  46.       specular 0.5
  47.       microfacet Reitz 10
  48.       color_map(
  49.          [0,   0.2, red,     orange]
  50.          [0.1, 0.3, orange,  blue]
  51.          [0.3, 0.5, blue,    skyblue]
  52.          [0.5, 0.7, skyblue, orange]
  53.          [0.7, 0.9, orange,  magenta]
  54.          [0.9, 1.0, magenta, red],
  55.          <1, 1, 1>)
  56.       }
  57.    scale <0.3, 0.3, 0.3>
  58.    }
  59.  
  60. define white_marble_texture
  61. texture {
  62.    noise surface {
  63.       color white
  64.       position_fn position_objectx
  65.       lookup_fn lookup_sawtooth
  66.       octaves octv_value
  67.       turbulence turb_value
  68.       ambient 0.2
  69.       diffuse 0.8
  70.       specular 0.3
  71.       microfacet Reitz 5
  72.       color_map(
  73.          [0.0, 0.8, <1, 1, 1>, <0.6, 0.6, 0.6>]
  74.          [0.8, 1.0, <0.6, 0.6, 0.6>, <0.1, 0.1, 0.1>])
  75.       }
  76.    }
  77.  
  78. object { sphere <0, 0, 0>, 2 noise_texture0 }
  79.